10 REM COMPUTER INVENTORY
20 C$(1)="COMMODORE":C$(2)="RADIO SHACK"
30 C$(3)="TEXAS INSTRUMENTS"
40 D$(1)="COMPUTERS":D$(2)="PERIPHERALS":D$(3)="SOFTWARE"
50 PRINT "[147]"
60 PRINT "    ** INVENTORY **"
70 PRINT "CHOOSE:"
80 FOR I=1 TO 3:PRINT I;C$(I):NEXT
90 PRINT " 0 EVERYTHING"
100 GET A$:IF A$<"0" OR A$>"3" THEN 100
110 CC=VAL(A$)
120 PRINT "CHOOSE:"
130 FOR I=1 TO 3:PRINT I;D$(I):NEXT
140 PRINT " 0 EVERYTHING":POKE 198,0
150 GET A$:IF A$<"0" OR A$>"3" THEN 150
160 DD=VAL(A$)
170 PRINT "[147]"
180 TT=0
190 PRINT C$(CC),D$(DD);""
200 RESTORE
210 READ C,D,ITEM$,SN$,DATE$,CST
220 IF C=10 THEN 310
230 IF CC=0 THEN 250
240 IF CC<>C THEN 210
250 IF DD=0 THEN 270
260 IF DD<>D THEN 210
270 C$=STR$(CST)
280 PRINT ITEM$,SN$,DATE$;TAB(20-LEN(C$));C$""
290 TT=TT+CST
300 GOTO 210
310 T$=STR$(TT)
320 PRINT "TOTAL";TAB(20-LEN(T$));T$
330 PRINT "DIFFERENT CATEGORY?   (Y/N)";
340 GET A$:IF A$="Y" THEN 50
350 IF A$="N" THEN 550
360 GOTO 340
370 REM INVENTORY ITEMS
380 DATA 1,1,VIC-20,V029972,1982,225
390 DATA 1,2,DATASETTE,282754,1982,70
400 DATA 1,3,VICMON,,1982,60
410 DATA 1,1,C-64,P00144607,1983,345
420 DATA 1,2,1541 DRIVE,K0177958,1984,250
430 DATA 1,2,1525 PRINTER,5016223,1984,250
440 DATA 1,3,RADAR RAT,,1983,30
450 DATA 2,1,16K COLOR,0024023,1982,620
460 DATA 2,2,RECORDER,,1982,56
470 DATA 2,3,COLOR LOGO,,1983,55
480 DATA 2,3,VIDEOTEX,,1983,40
490 DATA 3,1,TI-9/4,61205,1980,635
500 DATA 3,1,TI-99/4A,40102545,1982,425
510 DATA 3,2,TI RECORDER,025426,1983,60
520 DATA 3,3,ATTACK,5159992,1983,35
530 DATA 3,3,MUNCHMAN,9976273,1982,35
540 DATA 10,0,,,,0
550 END